;;
;; interpreter backend
;;

(in-package :oali.proto)



(defclass interpreter-context ()
  ((parser-context :initform (error 'ctor-error :entity 'parser-context)
		   :initarg :parser-context :reader parser-context)))


(defmethod funcs ((interpreter interpreter-context))
  (funcs-map (parser-context interpreter)))


(defmethod gen-binary-op ((interpreter interpreter-context) op args)
  (apply op args))